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1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
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1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
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} FACILITY: SET Command 
i ABSTRACT: 
This module implements the DCL command SET DEVICE. 


ONO OONOUSWD “QO VOOVNAVUE WN“ OOONOUS wiv 


i ENVIRONMENT: 
VAX/VMS operating system, user mode 


' 
4 
A] 
] 
i) 
4 
t 
i 
: AUTHOR: Gerry Smith 23-Feb-1983 
: Modified by: 

} v04-001 AEWO006 Anne E. Warner Sep-1906 
: Make changes in routine SETSERVED so tha ot, served 
devices cannot be reserved. 

t 

q 

1 

1 

i] 

! 

' 

] 

f 


v03-011 AEWOO0S Anne E. Warner from 9 to. 
Change the check of the reference count from 
before trying to SET wt /NOSPOOL. This is to insure 
that there 2 ore no open files or second channels to the 
device. s seed is in rout ine SETNOSPOOL. 


v03-010 AEWO004 . Warn 10-Aug-1984 
Add a check in StTPRO “that t the device is unowned 
and has no ACL present to require SYSPRV before its 


NOUR UN SO ODA UNE WO ODA WIN O OOVNOUE WN (OV ONOULS WI OV0O® 


On ON eS SE aN ns on aanan anak 
DONO 


NOME WN 0 OONOUE WN Oo 


PAIN 


} 
a SSS SSS SSS, SSS SS SSS > SD 


srt 


LESRISLESELSAPERASISASAAONASSSLS PORES SE 


ee a ad ad ad od od 8d dt td =) 8 2 2 I 


1b de-19R4 13:80ibe — eekTUtOsRe Sse evi ce Bs2-2 
protection can be changed. 


v03-009 AEWO003 Anne E. Warner 7-A mugs 198 
re the error messa oe set aycpnotid io" the SET SEV/SER 
return status is ss$_devoff This message is much 
poh Bh i to tell the user that the server code is not 


v03-008 gewoee Anne E. Warner 2-A uge ie 
onne? out code concerning the /NOWRITE "ed CONTROLLER 
a fiers of SET DEVICE/SERVED. These qualifiers are 
no jenger legal qualifiers but the code remains for future 
work. 


v03-007 AEWO 25-Jul-1984 
Add sanity greek in Se TSeRVED for SET pevICeeSERVED. 
Replace cli$_ivdevtype error message with set$_invdev 
error message which explains what happened better. 


v03-006 DAS0001 David Solomon 09-Jul-1984 
Fix truncation errors; make nonexternal refs LONG_RELATIVE. 


v03-005 ROW0342 h 0. Weber 10-APR-1984 
Add SET DEVICE /ENO DIAGNOSTIC, to ehuteoun orts for 
class/port devices where runni ng the device-local diagnostics 
inteacts adversely with normal host polling functions. 


v03-004 LMP0221 ark Pilan 10-Apr-1984 12:22 
GRSSG PRO oS _ownic” to ORBSL MOUNER and UCBSW_VPROT to 


v03-003 PCG0001 Peter Geor rge 30-Mar-1984 
Add SET DEVICE/SER ED/NOWRITE/CONTROLLERZA. 


v0O3-002 TCM0001 Trud Matthews 19-Aug-1983 
Set DEVSVCLU 6 bit on SET DEVICE/DUAL_PORT command. 
v03-001 GASO112 29-Mar-1983 


Remove references to old CLI interface. 


ee af 


La. m_Nee eee ee 


serDgyce ifcdeo-t9gs 99:50:56 yaRctt BL in4=52 ye. 0274g, 


' 
: ; Include files 
¢ LIBRARY *SYSSLIBRARY:1 18°; ! VAX/VMS common definitions 
REQUIRE ‘SRCS:SHOWDEF'; ! SHOW common definitions 
? ] 
; Define bit settings for the flags longword 
wane t$v_l 1, 0% ' /LOG 
setsv = o ’ e : : 
set voavel (set = ° 9. 1, O%, ! 
set$v_avail = . ¢° 1, 02, ! /CNOJAVAILABLE 
set$v_dualset = » do 1, OF, H 
set$v_dual = » 4 1, O08, ! /CNOJDUAL_PORT 
set$v_errorset = « Be Te Ge : 
set$v_error = . . 1, 02, ! /CNOJERROR_LOG 
set$v_spool = o Le Bs Gbe ! /SPOOL 
set$v_nospool = - O. 1, O8, ! /NOSPOOL 
set$v_prot = 1, 1, 1, 0%, ! SET PROT/DEVICE 
set$v_uic = 1, ¢ 1, 02, ' UIC set explicitly 
set$v_nowrite = 1, 5, 1, O82. ! /NOWRIT 
set$v_diagset = 1, 4, 1, 0%, ! /CNOJDIAGNOSTIC 
set$v_diag = Ve De Ve OSs ! 


i Define the Linkages for the routines to lock and unlock the 1/0 database, 
: as well as allocate and deallocate non-paged pool. 


MEAN @—O OODNANE WO OONOUS wy 


LINKAGE 

IOLOCK = JSB (REGISTER = 4): ' R4 = process PCB 
NOPRESERVE (1,2,3), ! R1-R3 destroyed 

ALLO = JSB (REGISTER = 1; ' R1 = size (on input) 
REGISTER = 1 ' R1 = size of block 
REGISTER = 2): i R2 = address of block 
NOPRESERVE (3,4,5), ' R35, R4, RS destroyed 

DEALLO = JSB (REGISTER = 0): ' RO = address of block 
NOPRESERVE (1,2,3,4,5); ! R1-R5 destroyed 


a a a a a at at at as = = 2 a 2 2 ts tS a SY YY os 
a a ad et 4 = ot = = = = = 8 = 4 8 2 8 


oo UMPwnr— NOVESWN Q“OOOVNOUS WN —O 
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NNNNNNNNNOAAAO ANIM PPP PPP Pee 
SONOS SS So US Ad eet oO Dee UA PaO oS ee PAPO wots 


a tt a ss bs ss bs a Ln © ts a a 4 ts tt 
em ee ce me me ee ee ee ee ee me ed ed ed od ad od Sd = = 8 td = 


PPA ATMTIUIVT 
SLELRISLSESELEALAN AS SSNS AF ANIS SSIS ALERIS SSS ALUNASSSUEGRES 


' 
Table of contents 


FORWARD ROUTINE 
set evtse 
setbit 
petecsel 
setnospool, 
setprot, 
setserved, 
setgetportname; 


: NOVALUE ° 


External routines 
EXTERNAL ROUT INE 
tran_q 
get_ stot *WOVALUE, 
pardenuic. NOVALUE 
Uibsc vt dtb, . 
cli Soot” value, 
clispresent. ot § ein 
exesalononp ° 
exeS$deanon Boned : DEALLO, 
schSiolockw : IOLOCK, 
sch$iounlock : 1OLOCK, 
ascp$addunit; 


t 
Externai references 


EXTERNA 
ett Sag p-pegeer ty : erg SEP 
atti ccbbese: s 


‘ 
: Declare some shared messages 


SSHR_MSGDEF (SET,119, LOCAL, 
(invquaval, 


' 
: Declare Literals defined elsewhere 


EXTER LITERAL 
set$_writeerr, 
set$_devset!, 
set$- “devset2, 

sete. Tiwaey, 


nots a etee Of 
set$_notuqport, 


1ebect9ge §0:88:8 


error)); 


AX-11 Bliss-3 


Main ule of SET DEVICE 
Set device characteristics 

Make a “device spooled 
Make a device un-spooled 
Set device r- —— and ownership 
CP serve 

ven a dev x. “determine the device 
io of ts port 


Convert {nous name to queue nam 
Convert ASCI | pretest ion to blaery 
Convert ASCII to Longueré 
Convert binary prot to ASC 

Convert ASCII to binary 

Get value from CL 

See if qualifier is present 

Get a chunk of sy ow pool 
Deallocate eogzeapes 
Lock the 1/0 ase nfor write 
Unlock the 1/0 databas 

Alloc and fill in ucB ter MSCP server 


Process privilege mask 
Address of process PC 


B 
! Beginning of channel control blocks 


Error modi fying device 
characteristic set 


Device protection set 


Device is invalid for requested operation 


Device spooled 
MSCP-Server code not loaded 
Device doesn’t have a UNIBUS/QBUS port 


CLIUTL.SRC setobvice 6 85252 


eee SS 2..e080SS | 


srt 


/ 


a a nt a at 


present; 


iSdeo-t96s 09:50:54 


0 
AX-11 Blis see Write es 
CLIUTL.SRCJSETDEVICE .852;2 


Device not mounted foreign 


! Device not spooled 

' Device already spooled 

' Qualifier absent 

! Qualifier explicitly negated 
! Qualifier explicitly present 


| 
sal 1e-Benrt9e 0:50:54 YaNest BLing=s2 ve 0c74g Page 6 
1 HT3t ROUTINE setSdevice (dummy) : NOVALUE = 


eo 
i Functional description 
This is the routine for the SET DEVICE command. It is called 
oy By, command processor, and sets certain characteristics 
Wy ° 


i 

i 

t 

f 

' 

! Inputs 
; None 
1 

' 

1 

1 


ie Ot 8 se 8 


DNAS WN OOONAUS 


i Outputs 
. None 


BUILTIN 
ACTUAL COUNT ; 


> 
—s VOLATILE 


prot_mask : WORD VOLATILE, 
new_frot : “WORD VOL. LATILE 


a a a es et 


WN "SOON UVUES WIN $$ O OONOUFS UMN 


Status return 

UIC for device protection 

Mask to show what protections changed 
pod rotections to set 


resu t_prot WORD VOLATILE, device protection 
dev gone : S See ee dscéc_s_bin ° 
que_desc seer Oekhe _s_binj, Queuename descriptor 
vic. desc : Kl dee 5 blr /OWNER_UIC descrip tor 
intdev_d desc 3 awe 275"bln). Descriptor for intermediate device 
flags ? SBBLOCKES ais Flags longwor 
9 into. pres 2 by Fb $GE CHN descr 
40 5 info_b “oe : LOCK tia, SGETCHN tolorant ton block 
41 chan": 1/0 channel 
& i internediate  deztes 1/0 channel 


1/0 status b Legh 

Translated string for spooled dev 
Tranetates string for que name 
SCMKRNL argument List 

Descriptor for controller name 
Controller letter 


MEW 
SOOOOOOOOOOOOGOOOOOOOOOOOOSSOSOSOOSOSCOCOOOCOOCOCOooooOoooOoOoOoOooOoOoo 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Ge Gs Ge Ge Ge Se Ge Se Se Geo Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se SO Se Ge Se Se eee 


; 
§ ITTAL 
49 4 port. eee $BBL0C Lascéc.s bin}. Descriptor for port device name 
° 5 port string : VECTORE 20, BYTE J, Port device name string 
; § port-chan : WORD; Channel to port device 
‘ 
3¢ 3 Collect the name of the device. 
26 ? Sinit tdyndesc idev_ gesc}: ! Make the descriptors dynamic 
2 § Sinit_dyndesc ( que.de 
3 Sinit— =dyndesc (utc poeed 
5 4 init_dyndesc(intdev desc); 
60 5 init_dyndesc(cont_désc); 
e § init_dyndesc(port_desc):; 
88 8 cli$get_value(ZASCID ‘FILE’ ! Get the device name 


| 
| 
Device descriptor | 
| 
| 
| 
| 
| 
| 
| 


ys 


oO 
we 


RON SSHIS 


— 
uw 


ONAN 


WO VONOUS WN "OOo 


OOOCOOSOOOSSOSSOSOOOOOOOOOOOOOOOOOOOO 


SISSLSRR AVL OSHA EW OOOO 


aN ee 
. at _ 
x 
m 


WVLOSS NEAR DOOR NON RU OOO NO 


SIET 


ARS at et et a st a 


SOONOULSWIN—O 


a ee 
MEW — 


ibodeont9ge 0g:5a:54  yaRcHt Bl fag 


; See if the user has OPER privilege. 
if NOT .ctl$gq_procpriv(prv$v_oper] 


BEGIN 

fm writeerr, 1, dev_desc, ss$_nooper); 
END; 

' 

: Assign a channel to the device. 


it NOT (status = SASSIGN(DEVNAM = dev_desc, 
CHAN = chan)) 


SIGNAL (Set$_writeerr, 1, dev.desc, .status); 
RETURN; 


See if logging is required. 
flags(set$v_log] = cli$present(ZASCID 'LOG'); 


‘ 

i If the device protection is to change. get the pretest ters. as well as 

i perhaps a UIC to give as the device's owner. To get device preseesse 

i changed, we first went thru the SET PROTE TION routine. -— call 

i this routine with a dummy argument. So, the number of actual arguments 
is 1, we know that it's really protection chet should be changed. 

if 


mais EQ. 1 


any 
buffer : VECT 3f202. 
desc : VECTORC2 


uic = 0; ! Initialize VIC 
get_prot(prot_mask, new_prot); ! Get protection masks 


If a UIC was specified, check it. 


if (tlagslsetSv auic) « clisget. value(ZASCIo *OWNER_UIC*’, uic_desc)) 
ee IF NOT parSe_uic(uic_desc, uic) 


GIN 
si (ots, invquaval, 2, uic_desc, ZASCID "OWNER_UIC'); 
END; 


voenbot 
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FREE 


ee 


RRLLLLEET 


rx 
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~NO 


oe 
NOUS WN—O0S wm 
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VIM 


LSAFAVLS 


emai AEC ht ih a acta a the 


oO 
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—~ 
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oe the kernel mode routine to set the protection, and then simply 


bit 
saying it ves mentioned 


BEGIN 
pe set$v_avail et] = 1; 
and set the yes/no bit 


flagsCset$v_avail = .status; 
END; 


ar t}stho 
orstastry = He ! FLAGS says what to do 
arglist $ = set gl. ccbbase = .chan; ! Put CCB address here 
arglist = prot_mask; : which class(es) to set 
argl isthe : ~ > ‘prot; ! New protections 
orgie ! Final owner VIC 
F NOT staan : * SCMKRNL (ROUT IN = eonpees 
RGLST = arglistS) 
THEN 
BEGIN 
pis Senta ser teeere 1, dev_desc, .status); 
ELSE IF .flagsCset$v_log) 
THEN 
arene t(arglist te ms 
expand_prot(arglist, ghee rg 
$I TENALTSet$ <aeupeet. 6, d rf 
nargt Ystfo 
earglistti 
-arglist 3: 
oorgt ist 
euic); 
END; 
RETURN; 
END; 
7 
: Determine whether or not, {inode raquns tic ae specified and whether it is 
setting or clearing the ‘diagnostic’ sta 
status = ct teerepent( ZASCID "DIAGNOSTIC ); ! DIAGNOSTIC qualifier present? 
IF .status NEQ cli$_absent ! If not absent, 
a ! then ... 
ftagstsetsv. diagset] = 1; ! indicate it is present 
Me set$v_diag] = Status; ! save its value (yes/no) 
' 
! One set of qualifiers do nothing more than set/clear bits in the 
device characteristics longword. 
status = tee et ta eesti? *"AVAILABLE'); ' See what CLISPRESENT returned 
IF .status NEQ cli$_absen ! If the qualifier was 
THEN . oupt fe 3Shy sont ened. 
: set the flag 
' 


For all you Bliss hackers out there, a more concise war of expressin 
the he above i s shown below, for the /CNOJDUAL_PORT and /LNOJERROR_LOGGING 
qu. * 


ibBen-1964 90:50:54 yaNeit OLeg-32_y4.0274 


| 
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x 
SET cE 16-Sep-1984 00:50:54 AX-11 Bliss-32 V4.0-74 Pa 9 
deed 13-308= 1388 99: 39i0e CLIUTL.SRC setotvice 682:2 - (4) 
; flags{set$v_dualset] = ((flags(set$y_dual] = cli$present(ZASCID "DUAL_PORT')) NEQ cli$_absent); 
sLopsbseegy-Sualoct?, = ((flegstsetsv error] = clispresent( ASCID VERROR LOGGING" 5 NEG cl i$. absent); 
' 
! If a device is to SPOOLed, then a queue name and intermediate device 
r : must be acquired. 
4 if (flagslset$v_spool = cliSpresent(ZASCID ‘SPOOLED')) NEQ cli$_absent 


BEGIN . 
IF_.flagsCset$v_spool] 
THEN 
BEGIN 
cen” tran queue(dev_desc, dev_string) 


BEGIN 
SIGNAL (set$_invquaval, 2, dev_desc, ZASCID ‘SPOOLED'); 
RETURN; 


BEGIN 
dev_desc(dsc$w_length] = “dov_stringto]: 
dev_descldsc$a_pointer] = dev_string(1]; 


ND; 
my cli$get_value(ZASCID ‘SPOOLED’, que_desc) 
BEGIN 
que_desc(dsc$w_length] = -dev deacldacdy. length): 
gus desc dsc$a_pointer] = .dev_descldsc$a_pointer]; 


ELSE 


aa 
oooonovono > en 
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SSLSSFESSS3 
o 
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vw 


END 
IF NOT (status = SASSIGN(DEVNAM = intdev_desc, 
CHAN = intchan)) 


SRVUSVROVUSSanourwuv -SSevenrorvroo 


4 

4 0 

410 IF NOT tran_queue(que_desc, que_string) 

411 THEN 

$i¢ BEGIN 

41 SIGNAL (set$_invquaval, 2, que_desc, ZASCID ‘SPOOLED'); 
414 RETURN; 

415 1 

rh 1 

41 1 BEGIN 

418 1 que_descidsc$u_ length] = “que _stringl 0): 

419 1 gus desc dsc$a_pointer] = que_string(1]; 

ret END; 

4 § 1 IF NOT cli$get_value(ZASCID "SPOOLED', intdev_desc) 

4 1 THEN 

424 1 QEGIN 

425 nedev_ desc decéu. length) = ZCHARCOUNT('SYSSDISK'); 
4 6 intdev_descldsc$a_pointer) = UPLIT BYTE(’SYS$DISK'S; 
428 

429 

4 

431 

4 

& 

te 


PUPVPVPVUPUPUPUSPUPUSUPUSSIST IST TIITII 


BEGIN 
SIGNAL(set$_writeerr, 1, intdev_desc, .status); 
RETURN; 


FEN 


sent 
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If /NOSPOOL, then no additional information is needed. 


tmtoacacace 
x 
m 


{loge(setSv_nospoot J = NOT .flagsCset$v_spool); ! Set the /NOSPOOL flag 


If /CNOJDIAGNOSTIC was specified, then locate the port device and 
send is an 10$_STOP or an 10$_IN{TI 


gt teastsetSv_diagset) 


ALIZE, as specified by the qualifier. 


BEGIN 

con” -ctl$gq_procpriv(prv$v_diagnose] 
BEGIN 
SIGNAL (set$_writeerr, 1, dev_desc, ss$_nodiagnose); 
Aes 

IF NOT .ctl$ rocpriv(prv$v_phy_ioJ 

THEN 99_Pp p p oPpnhy. 


BEGIN 
SIGNAL (set$_writeerr, 1, dev_desc, ss$_nophy_io); 
RETURN; ' 


END; 
arglist(0) = 3; 
arglistlij = gtlsglccbbase = .chan; 
arglist § = 20; 
arglist = port_strin 


IF NOT (status = SCMKRNC{ ROUTIN = set etportname, 
ARGLST = arglist )) 


BEGIN 
SIGNAL(set$_writeerr, 1, dev_.desc, .status); 
RETURN; 


port _descidsc$u_ length) = .arglist(2); 


port_descldsc$a_pointer] = port_string; 
IF NOT (status = SASSIGN( DEVNAM = port_desc, 
CHAN = port_chan )) 

THEN 

BEGIN 

SIGNAL(set$_writeerr, 1, dev_desc, .status); 

RETURN; 

END; 

LOCAL 

r 

IF “i ipostsetsy diag) 

THEN port_func = STOP 

ELSE port_func = 108 JNITIALIZE: 

IF NOT (status = $Q]00( CHAN = .port_chan, 
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SS ne 


Vou-601 iesbet9ge QB:EB:Et YMG, Bde 482748 tet 


49 7 FUNC = .port_func )) 
49 THEN 
494 BEGIN 
636 a geet! L(sets .writeerr, 1, dev.desc, .status); 
9 9 END; 
98 3 END; 
95 SDASSGN( CHAN = .port chan ); 
39 END; 


f the ie tay options were requested, call the subroutine 
hat does that. Signal any errors or successes. 


-flags{set$v_availset] 
- flags(set$v_dualset 

OR .flags(set$v_errorset] 
thei 88 set$v_diagset 


see istlo 
orgtisth) = te 
arglistl2 ct en sesbene = .chan; 
status = SCMKRNL UTIN etbits 

LST = = gran tants 


IF .status NEQ 1 
THEN 


vw 
Oooo 
le et ad td = I IO 


DWONOULS WN “QO VONOULS WO 


BEGIN 
SIGNAL (set$_writeerr, 1, dev_desc, .status); 


ND 
ELSE IF .flagsCset$v_log] 
THEN 


BEGIN 
IF_ .flagsCset$v_availset] 
THEN a 
IF .flagsCset$v_avail] 
THEN SIGNAL(set$_devset1, 2, dev_desc, ZASCID ‘AVAILABLE') 
EL SE SIGNAL (set$o ~devset!, 2, dev_desc, ZASCID "NOAVAILABLE'); 


E 
if pears dualset) 


USSSSOVEARASLS 


riot totta tet 


SHGEARE 


Thegstsetsy dual] 
etS_devseti, g. dev_desc, ZASCID ‘DUAL_PORT') 
‘er SIGNAL (set devseti, dev_desc, ZASCID "NODUAL_PORT'); 


ND; 
i . Lags(set$v_errorset) 
THEN 


Mwy 


iF’ 
THE 
E 


GIN 

‘ *LogstsetSy error) 
N SI set$_devset!, 2, dev_desc, ZASCID ‘ERROR LOGGING’) 

E SIGNAL (eet$o “devseti. * dev~ “desc, ZASCID "NOERROR_LOGGING'); 


SESSESSSS. 


Dt oO sesssc 
= AAAAOCOUIUIMNUVIUIUIVIVW 
oO COOoOCOoCooONoO 
Seu AROS 
DANA BF PMI BH BMI BBM & BANA WII IPP POPPOPOPOPUPIPUNIPU WWIII En Pn 
ou mcasaece 
b> heal 
me as 


Wr O00 


PUPUDVDVPVLVDVLPVSPUDUDUSDULUSVLVSUSUSIVSIUSU SUSU SUVS SSIS SISOS SISTINE £™ 


Fay at tt et tt tt 


DWNOUSWIN—O 


IF 

THE 
ELS 
END; 


If _ .flagsCset$v_nospool) 
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ithe 1e738p=4982 93588582 | eet OSAE SSE Fae vite b$2-2 a 
49 644 END; 
0 645 END; 
, RE 
ote ! If the device is to be spooled or despooled, then call the routine that 
33 4 : performs those functions. Signal any errors or successes. 
If .flagsCset$v_spool) 
5 i THEN. _ 
8 6 BEGI 
9 654 arglist(0) = 4; 
60 655 arglist = .ctl$gl_ccbbase = .chan; ! Put CCB address here 
61 6 : arglist(2) = .ctl$gl-ccbbase = .intchan; i Need the CCB of the int device 
$¢ 5 arglist 3 we desc; ! Name of the queue 
6 bees arglist(4) = intdev_desc; ! Name of the intermediate device 
64 P 065 IF NOT (status = SCAKRNL(ROUTIN = setspool 
65 0660 ARGLST = arglist)5 
66 0661 THEN 
67 bO¢ BEGIN 
368 Boe? pi See. Cae er teeerr. 1, dev_desc, .status); 
-flagsCset$v_lo 
570 0665 IF .flagsCset$v_l hs 
a $ SIGNAL (set$_spooled, 3, dev_desc, que_desc, intdev_desc); 
348 
574 
i 
39 
578 
579 


SS EESSSESSSE SS 
Se So NOUSWIN O00 
PAPA AAA AMAHAAPIPIPIPIPININI NHN EE BBW FW AIPININININIWIN EE BF PW BWIA AIPOPUPOPOPUPOTPoOnruWw 

ow mom 
o mo 
eam 

a 

= 
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THEN 
IN 
arg istto) = 1; 
arglistl1J = .ctl$gl_ccbbase - .chan; ! Put CCB address here 

580 IF NOT (status = SCMRRNL(ROUTIN = setnospool, 
38) Te ARGLST = arglist)) 
238 BEGIN 
28¢ SIGNAL (setS_uriteerr, 1, dev.desc, .status); 
586 ELSE IF af legsCsetSv_ log) 
587 THEN SIGNAL(Set$_devset!, 2, dev_desc, %ASCID "NOSPOOL'); 

588 END; 
589 

ao0 ! 

14 : Lf a device is to SERVED, then serve it. 

538 iF cl iSpresent (ZASCID "SERVED') 

595 BEGIN ! The nowrite flag is not used so pernenens ly set 

' set to 0. However the original code is left 

9 ! if anyone wants to change his back. 

98 fla aCsetSu ngurited = 0; !cliSpresent(ZASCID ‘WRITE') EQL cli$_negated; 
+4 , on roller = 0; 

601 i Controller is not presently a legal qualifier but the code is left incase 
$08 ! this changes in the future . 

rt : i ct Spresent(ZASCID CONTROLLER’) 

605 i IF cli$get_value(ZASCID "CONTROLLER', cont_desc) 


srt 


BRIE 


WNP 3 3 2 SS 


HPAEAEARAAAAAAAAA AAPA AAAAAAA AAO 
WN —OOONAOULSWN “OVOVNOUSWN—O 


AAAS 
Ww 


Wu 
Wms 


00 


00 


SOOSSDSCSCOSCOOSDOSDOOOOCOOCOOOOOOCOCCO 
NNN SSS SSS 
3 3 DOO OOOO 


SNS NNN NNN 


WIRINPOPONPONININUNININ 


SOOONOUES WN O OONAOUE UNO OONAOULS UM 


00 


00 


—TRNRNIWE EE EEE EWE EE BWE PUI 


00 


43 


THEN 
IF_ .cont_des Réecty =o es GEQ 1 


THEN nets er = .(lcont_desc Cdsc$a_pointer]) <9,8,0>; 
arglist(O 
or ot Stra = flags: ' Flags 

HH = a $gl_ccbbase - .chan; ' CCB address 
oratise = .controller; ! Controller letter 


IF NOT (status = peraigersmcdee = = setserved, 
THEN ARGLST = arglist)) 


BEGIN 
teat aatiiamt 1, dev.desc, .status); 


IF .flagsCset$v_log) 


BEGIN 

SIGNAL (set$_devset!, 2, dev_desc, ZASCID SERVED"); 

IF .flags(set$v_nowrite 

THEN SIGNAL (set$ evecti. 2, dev.desc, ZASCID "NOWRITE'); 
cont_desc dscSu length] = 1; 

IF .controller 


he CTENAL (sets _devset2, 3, dev_desc, %ASCID ‘CONTROLLER’, cont_desc); 
END; 
RETURN; 
END; 
.TITLE SETDEVICE 
“IDENT \V04-001\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
45 ASCII \FILE\ 
G 17694724 
00 ride \té \<0> 
; “LONG 1 7694 47 3 
43 49 SS SF 52 45 : ASehiS \ IC\<0><0><0> 
“LONG i 2 
43 49 55 SF 52 45 “ASCII \ ER YIC\<0><0><0> 
LONG 69472 
ADDR $s" P.AAH 
49 54 53 4F 4E 47 ASCII IBupeygtic\comeo> 
a Res P.AA 
45 4C 42 41 4C 49 “ASCII Hilgncowo 
LON i 
54 S52 4F SO SF 4C 


“ASCII * UA AY “PORT \<O><O><0> 


iEoSeo-19B4 00:50:54 YAKetT BL ing=52 ys. 


$F 882:2 
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ifdep-1964 00:50:54 Yancty OL iag=82 ¥4.0-748, 


78 +ADDRESS P.AAN 
7C P.AAP: .ASCII] \ERROR_LOGGING\<0><0><0> 


P.AAO: athe sh us 
BoM: LIT aepap co 


A -ADDRESS 
A4 P.AAT: ASCII sSB00L ED\<O> 


sean 


00 00 47 4E 49 47 47 GF GC SE 52 4F * mel 


00 44 45 4C 4 


“coo” 


Sooo 
ss Ss SS 


00 44 45 4C 4F 


01 
0005 
oe 
,00 0 
3 0 pat P.AAS: .LON 
0000 B “ADDRESS PeAAT 
00 44 45 4C 4F B4 P.AAV: .ASCII \SPOOLED\<0> 
oy 00 BC P.AAU: LONG — 17694 
0960009" 900¢ “ADDRESS P. AAV 
00 44 45 4C 4F 4F OOC4 P.AAX: ‘eee steer 
1060007, OOOCC PAW: <LON 
00 44 45 4C 4F 4F i 3 D4 P.AAZ: “ASCIT Note D\<0> 
01060007, O000¢ PLAAY: LON 
0900009" O00E RESS PAA 
4B 53 49 44 2% 53 QOE4 P.ABA: “ASCII \S¥SS 
00 00 00 45 4C 42 41 4C 49 41 56 41 itd P.ABC: .ASCII NAVAILABLE \<O><O><0> 
01060009, OOOFE PLABB: LONG 17694 
0060000" 900FC ADDRESS P.ABC 
00 45 4€ 42 41 4C 49 41 56 #1 16C0 rt Bior oes! “ASC Wepre 
00 60006: 0116 “ADDRESS. P. ABE 
00 00 00 54 52 4F 50 SF 4C 41 55 44 00114 P.ABG: ‘ASCII \DUAL_PORT\<0><0><0> 
01060009, 00120 PLABF: LONG | 17694729 
0000000° 00124 »ADDRESS P.ABG 
00 54 52 4F 50 SF 4C 41 55 *+ soe00Gs 3 8 P.ABI: wr \NODUAL PORT\<0> 
Bogg0000" a “ADDRESS P.ABI 
00 00 47 4E 49 47 47 4F 4C SF 52 4F 52 5 $3 bids P.ABK: .ASCII \ERROR_LOGGING\<0><0><0> 
01060000 Q14C P.ABJ: LONG 17694733 
00000000" 0015 “ADDRESS, P. ABK 
47 4&6 49 47 47 GF 4C SF S52 4F 52 52 45 4F $5 123 P.ABM: .ASCII \NOERROR_LOGGING\<0> 
0106000 164 P.ABL: LONG 17694735 
0060000" 00168 “ADDRESS 
00 4C 4F 4F 50 53 4F 35 196 P.ABO: .ASCII MHOSPOOL \<O> 
1060007, OO174 PLABN: LONG 17694 
0990009° 00178 ADDRESS P.ABO 
00 00 44 45 56 52.4 W7¢ ABQ: <ASCIT  \SERVED\<O><O> 
01060 184 P:ABP: :LONG 17694726 
0 * 001 »ADDRESS P.ABQ 
00 00 44 45 56 52% BC B.ABS: :ASCII  \SERVED\<O><O> 
01060006, 00194 P-ABR: :LONG 17694726 
0000° 00198 “ADDRESS P.ABS 
00 45 54 49 52 57. GFE OO19C B.aBu: ASCII \NOURITE\<O> 
1060007, QOIAG P-ABT: LONG 17696/2 
0000009" O01A8 “ADDRESS P. ABU 
00 00 52 45 4c 4¢ AF 52 54 4E, GF 43 QOIAC B.apw: ASCII \CONTROLLER\<O><0> 
Boooo000" Oo18C “ADDRESS P. ABW 


sso 


EC 
E4 
oc 
D4 
0084 
7c 


08 000000006 09 


MMOAQAAGAAG 


AD 020E000 
AD 020E00 
AD 020€00 


CE 020€ 0 
AE 020€ 
EC 


¢ 
C 
AD s0euos 


000000006 3 


Oo *MWMM*"OCoOCOoO"SO 


OF OF ONERDMNOOCDOOCMMO 
nom 


ek 


OFFC 00000 


9E 0000 
Dd 00008 
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AX-11 Bliss-32 V 
CLIUTL.SRC SETDEV 


TRAN eCUEUE. - Ger PROT 

LIBSCOT tee MPL ISGET. VALUE 
LI faa EXESALONONPAGED 

SIOUNL 


Vice -6$2:2 


PSA 
sat 
3 
$_ 
:- 


Ss 
E 
EVA 
EGA 
$16 


AMOMONNNONOBZomMmM 


XE$SD 
CH 
SC 
TL 
ET 
ET 
ET 
ET 
LI 
LI$- . cl E 
LI$~ TED g CLTS PR PRESENT 
YSSA 
yesaiow: Ng SYSSCARRNL 

SCODES ,NOWRT,2 

SETSDEVICE, Save R2,R3.R4,R5,R6,R7,RB,RI,- 
GUISE AVA VALUE. R11 

acl R10 

#SETS~ DEVSET er R9 

SYSSCAKRNL, R& 

CTLSGL CCaBASE 

CLISPRESE “* 

paste *R5 


Ro 
“376($P), 


sels DEV_DESC 


; ts 3 QUE _DESC 
a" + 
#340 6 UIC_DESC 
uICc 

fare By th DESC 
toe a at CONT DESC 
é aU 36. PORT _DESC 
PORT _DESC+4 
Dd panei 


. CLISGET VALUE 
§ptsco tt PROCPRIV+2, 
Hist 
=(8p) 
i “v3tassi6n 


STATUS. "8 


; 0351 
; 0352 


0302 


0303 


0353 
0354 
0355 
0356 
0358 


O86? 


0375 


a a 


Bae 93:08:02 «| Hee TUTOSRESsEfoevi ce 6$2-2 


~ 
ed 
oe 
e 
nn 
<= 
® 


Ww 
wr 
VOWWN=-—- 


& 
ee 


al 
ee 


o 
4 


= & 


OO VMDANNSE 


WSIS IEASSIORNS SS 


wn 


cor] 
on 


49$ 


P. AAC 
“i. ¢ ¢ ISPRESENT - 
AP), att 


- C 186 T_VALUE 
. io » FLAGS+1 


GLIST 

FLAcs, ARGLIST#4 

RO Mast GL ~£CBBASE, ARGLIST+8 
MASK, "ARGLIST#12 

NEW. “PROT ¢ Abobistet6 

UIC? AR 

AR gC 1st’ 

$ TPROT 

» SYSSCMKRNL 

R STATUS 

status. $ 

FLAGS, 6$ 


rT 

NEW_PROT, -(SP) 

ARGCIST 

#3, EXPAND_PROT 

ARGLIST+8, -(SP) 

ARGLIST, -(SP) 

DEV v_dES¢ 

aseTS DEVPSET 

#8, LIBSSIGNAL 

P.AA 

aie 1 ISPRESENT 
TAT 

TATUS, R10 


#16, FLAGS+1 
STAfUS, #5, #1, FLAGS*1 


Pe Se Se Se Se Ge Se Se Se Se Se Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Sse Ge Se Ge Se Be Se Se Sse Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se 


ssrut 


; 5¢ 
i 
A 
OC AE 01 x0 0 
70 
OC AE 01 bc 
5A 
Oc AE 01 03 
4 0088 
Oc AE 01 06 
Py.) 
Oc AE 01 05 
0098 
66 
oc AE 01 7? 
A 
oc 
A8 
EC 
000000006 00 
09 
00A8 
EC 
EC AD A 
FO AD A 
FS 
0088 
—o 
cB AD OFO 
98 
E4 
000000006 99 
00c¢8 
E4 


0077132A 


Bouncnunounnonunowunneruscouncr 


So 


WMWWOO 2 & = =O 202 F =O O09 BRN PVC 


S 
«oor 
o 
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10$: 


118: 


128: 


13$: 


MOOD FM OU 9 OD MOU FOOD MOOW— FO OOO 


148: 


158: 


SEEM LURE YN Soe 
NRO PUN WW oS 


16$: 
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50:54 AX-11 Bliss-32 V4.0-74 Pa 17. 
382 90:30:32 CLIUTL. Reise sevice 82:2 9 a) 
PUS P.AAK 3 0461 
CALLS #i, CLISPRESENT : 
MOVL RO, STATU : 
CPL AtUs, R10 3 0462 
BIS62 #2, FLAGS 3 0465 
INSV STATUS, #2, #1, FLAGS ; Bigg 
PUSHAB P 3: 04 
CALLS #i, CLISPRESENT : 
INSV RO. #4, #1, FLAGS : 
CLRL & : 
CMPL Fe R10 : 
BEQL §«=s«d108 : 
INCL R1 : 
INSV 1, #3, #1, FLAGS : 
PUSHAB P.AAO + 0474 
CALLS #1, CLISPRESENT : 
CLRL RT : 
CMPL = RO, _-R10 : 
Bea. 4=séséa1'38 : 
INCL R1 : 
INSV R1, #5, #1, FLAGS : 
PUSHAB P.AAQ + 0480 
CALLS #i, CLISPRESENT : 
INSV RO. #7, #1, FLAGS : 
CMPL )~=—séR}O,, R10 : 
BNEG 128 : 
BRW 21$ 3 
TSTB FLAGS + 0483 
BLSS 13$ : 
ARW 20$ : 
PUSHAB DEV_STRING + 0486 
PUS DEV-DESC F 
CALLS #2, TRAN_QUEUE : 
BLBS RO, 14$ F 
PUSHAB P.AAS + 0489 
PUSHAB DEV_DESC ; 
BRB 16$ ; 
MOVZBW DEV_STRING, DEV_DESC + 0494 
MOVAB DEVSTRING*+1, DEV_DESC+4 + 0495 
PUSHAB QUE~DESC + 0497 
PUSHAB P.AAU : 
CALLS a, C, 1SGET_VALUE ; 
BLBS RO. ; 
MOVW  DEV_DESC, QUE_DESC : 05 
MOVL DEV-DESC+4, QOE_DESC+4 : 0501 
BRB $ : 0497 
PUSHAB QUE_STRING : 0505 
PUSHAB QUE-DESC ; 
CALLS #2, TRAN_QUEUE ; 
BLBS RO, 178 : 
PUSHAB P.AAW : 0508 
PUSHAB QUE_DESC ; 
PUSHL 3 
PUSHL 803690 ; 
BRwW 2 3 
| 
, et 


serDgyce yfcdeo-1904 00:50:54 yactt OL teg-3e v4 0-72 


£4 AD 98 AD 98 ; 17$:  MOVZBW QUE_STRING, QUE DESC 
£8 AD AD E VAB QU STRINGEI, QUE _DESC+4 
D4 AD 18$:  PUSHAB IN BEV_DESC 
0008 + C4 OF PUSHAB P.AAY 
68 i 4 CALLS Hf JSGET_VALUE 
D4 AD A MOVW #8. INTDEV_DESC 
D8 AD 00€0 : E ; MOVAB P.ABA, INTDEV_DESC+4 
oc AE OF 60598 oe Bh Stae IKE CHAN 
D4 = AD 3F 35 PUS INTDEV_DESC 
000000006 Q 04 F : CALLS #4, SYSSASSIGN 
D MOVL RO STATUS 
0 3 é BLBS STATUS, 20$ 
59 PUSHL  S$TATU 
DS OA 3 PUSHAB [NIDEV_DESC 
0253 31 F BRW 1$ 
50 OC AE 1 97 EF 20$:  EXTZV #7, #1, FLAGS, RO 
0 9 D2 00.97 MCOML RO, RO 
OD AE 01 00 sO OF 9A INSV. RO. #0, #1, FLAGS+1 
03 OD AE 008 5 ht! 218: BBS a4, FLAGS+1, 22$ 
07 000000006 90 0 8 AB 22$: BBS rT gTLsGa PROCPRIV, 23$ 
E 2834 r Ht 0 80 MOV ZUL #ib2 2, -(SP) 
08 000000006 90 6 £0 002B7 23$: BS a6 gTLsca PROCPRIV+2, 25$ 
E 2884 8F 3C 0 BF MOVZWL #10420, -(SP) 
021A 31 002c4 48: RW 
FF78 gp 00 9 C7 5$: HOVE faints! 
FF7C «CD “ 67 $5 cs 0 cr SuBL 3 RO, CTLSGL -CCBBASE. ARGLIST+4 
Ro hk Boat | Reet, Sat TIM. domsrea 
00000000v EF 9F 00 H PUSHAB SETGETPORTNAME 
68 FB 0 Es CALLS ‘ » SYSSCMKRNL 
4A £9 EE BLBC STATUS 
7 AE 89 AD 60 O02F MOVW ARGLIST+8, PORT_DESC 
0080 CE AE : Fé ROVAB PORT STRING, PORT_DESC+4 
10 AE 3F 0 FE PUSHAB PORT_CHAN 
008 E 9F 00 PUS PORT "DESC 
000000006 4 ¢ 5 CALLS #4, SYSSASSIGN 
D c MOVL RO STATY 
= f BLBC STATUS, 28$ 
05 0 A E1 1g BBC #5, FLAGS+1, 26$ 
5 06 1 MOVL #3. PORT_F 
1A BRB 27$ 
50 4 bo 1¢ 368 MOVL #4, PORT_FUNC 
— 7C OOSIF 278 CLRO 0 = §p 
7E 7C 1 CLRQ = =( SP) 
7E 7 CLRQ = = (SP) 
7E f CLRQ = =( SP) 
43 D CLRL 0—s_ = (SP) 
5 po PUSHL  PORT_FUNC 
7E 30 AE 3¢ 8 MOVZWL PORT"CHAN, -(SP) 
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ssou 
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000000006 3 
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FF78 
00000000v 


EC 
000000006 
oc 


OOF4 
0108 
EC 


011C 
0130 
EC 


0148 
0160 
EC 
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ee 
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Be 9950966 


AX-11 B 


-3 
thiuties sReis foevic 


ae, YS$Q10W 
ae 

i pail 
; FLAGS. $1 

#4. FLAGS*+1, & 


LIST 
FLAGS, ARGLIST*4 


AN 
RO, CTLSGL_CCBBASE, ARGLIST+8 
RELIST 


s TBITS 

» SYSSCMKRNL 
R STA Tus 
tar TUS, # 


STA TUS 
DEV_DESC 


#SETS_WRITEERR 
4 AGS, 42$ 


° Fines’ 5$ 
3$ 


————— 


e882; 32 (4) 


0651 


| ee a te 
MIE EET ate te A ee OO, BIOS. 


seTDEyce ifcdeort9gs Qg:5R:54  yaRcHY BL ing=52 ue.0=743, age (20 


FF78 0 00 3F MOVL #4, ARGLIST : 0654 
B 4 MOV CTLSGL_CCBBASE, RO + 0655 
E g 4 MOV yl ¢ : 
FF7C «CD 6 § sua R1, RO, ARGLIST+4 3 
04 AF g 4 MOV ¥L NTCHAN, + 0656 
80 AD 0 5 4 SUBL 1, RO, ARGLIST+8 ; 
84 AD E46 AD SE 0041 MOVAB Que DESC, ARGLIST+12 t 0657 
8 AD b4 AD 9E f MOVAB INTDEV_DESC, ARGLIST+16 + 065 
FF : CD OF PUSHAB : 
00000000v EF 9F 5 PUSHAB §$ TSBOO, : 
F 8 CALLS #2, SYSSCMKRNL ; 
D . MOVL RO, STAT : 
1 : BLBS STATUS, 43$ : 
BD PUSHL STATUS + 0663 
EC AD OF SHAB DEV_DESC ; 
1 OD PUSHL #1 : 
000000006 8F DD PUSHL #SET$_WRITEERR : 
5 Fe 441 CALLS #4, LIBSSIGNAL ; 
18 11 00444 BRB + 0659 
14 OC AE €9 00446 43$:  BLBC FLAGS, 44$ ; 0665 
D4 AD SF OO44A PUSHAB INTDEV_DESC + 0666 
E4 AD 9F 00440 PUSHAB QUE_DESC : 
EC AD F 0045 PUSHAB DEV "DESC F 
0 DD 0045 PUSHL # : 
000000006 8F DD 0045 PUSH asets SPOOLED ; 
65 05 FB 38 CALLS @# LTBSS1GNAL : 
42 OD AE E 44$:  BLBC FLAGs*1 47$ : 067 
FF78 CD 01 BO 6 MOVL #1, ARGLIST +. 067 
30 of ¢ 6 MOVZWL R + 0674 
FF7C §= CD 6 5 g gA UBL3 RO, CTLSGL_CCBBASE, ARGLIST+4 ; 
FF78 «CD OOF 0 PUSHAB ARGLIST + 0676 
00000000v EF 9F 00474 PUSHAB §$ TNOSBOOL ; 
68 FB 0047A CALLS #2, SYSSCMKRNL ; 
a DO 0047D MOVL TAT : 
OF EB 004 BLBS STATUS, 45$ ; 
& BD PUSHL STATUS + 0679 
EC AD a PUSHAB D V_DESC F 
000000006 br 2 A PUSHL #SETS_WRITEERR ; 
iY C AE €9 00492 45$:  BLBC FLAGS, 47$ > 0681 
0195 ef oF PUSHAB P. : 0682 
EC AD oF 9A PUSHAB D V_DESC : 
so BABB a: Beh Betton 2 
0180 C4 9F OO4A4 233: PUSHAB P.ABP : 0688 
66 1 Fe As CALLS #i, CL ASPRESENT ; 
1 0 i AB BLBS RO, ; 
0D AE A OO4AF 48S BICB2 #8, FLAGS+1 : 0693 
D4 0048 CLRL CONTROLLER F 694 
FF78 CD 0 0048 MOVL #3, ARGLIST ; 0705 
FF7C Oc AE 9E O04BA v FLAGS, ARGLIST+4 : 07 
C MOVZWL CHAN, R : 07 
80 AD a C ¢ SUBLS RO, CTLSGL_CCBBASE, ARGLIST+8 ; 
84 AD D ¢ MOVL CONTROLLER; ARGLISf+12 : 0708 
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FF78 CD OF 004C PUSHAB ARGLIST 3 0711 

ooo0nooey oF 400- PUSHAB § att D 3 

$ FB 004 CALLS #2, SYSSCMKRNL : 

DO 004D MOVL RO, STAT : 

1 E8 0040¢ BLBS STATUS, 53$ : 
bb DF 49$:  PUSHL STATUS + 0714 

EC AD 9F 004E1 O$: PUSHAB DEV. ESC : 

1 DD 00464 51$:  PUSHL # : 

000000006 8F DD 004E6 PUSHL #SET$_WRITEERR : 
5 fe Met 528: CALLS #4, LIBSSIGNAL 3 719 

40 AE €9 O04FO 538 BLBC  _—s- FLAGS, 55$ : O71 

0195 cf oF rth PUSHAB P. : 0720 

EC AD 9F 0048 PUSHAB DEV_DESC : 

DD 004FB PUSHL @# : 

DD 004FD PUSHL R : 

65 4 FB OO4FF CALLS #4, LIBSSIGNAL : 
OE OD AE 3 61 99 ¢ ¢ #3, FLAGS+1, 54$ ; 0731 
01A0 C4sCO#F PUSHAB P. : 0722 

EC AD 9F 005 SHAB DEV_DESC : 

0¢ DD 005 PUSHL # : 

DD 0051 PUSHL R : 

65 04 FB 0051 CALLS #4, LIBSSIGNAL : 
0084 CE 91 BO 00515 54$:  MOVW #1. CONT DES + 0723 
D5 0051A TSTL NTROLLER + 0724 

16 13 0051C BEQL : 
0084 cE oF 9016 SHAB CONT _DESC : 0725 

01B4 «C4 OOF 09 PUSHAB P. : 

EC AD 9F 00526 PUSHAB DEV_DESC : 

DD 005 PUSHL # : 

000000006 8F DD 00528 PUSHL #SET$_DEVSET2 : 

5 5 FB 00531 CALLS #5, LYIBSSIGNAL 3 
04 00534 55$: RET : 0730 


3; Routine Size: 1333 bytes, Routine Base: $CODES + 0000 


11 
sri Es 


=1984 12:09:04 — EeCivt sre Sse totvice -042;2 


{ 
: Set the bits as appropriate. 


if - flags(set$v_dualset] 
_ char{devs dua) = .flagsCset$v_dual); 
ree ifls ts $¥_duali; 


eee 
wn 
Pe) 


—~ 


WR =O OONAULS WN OOo 


char clu) = .flagslset 


it 
IF .flags{set$v_availset 


SESeSF 


SSNS NNN NNN SSS 


H 7 7 1 ROUTINE setbits (flags, ccb) = 
y. f BEGIN 
; 640 734 0 t+ 
: ot) f 5 Functional description 
; £08 7 $ i This is the kernel mode routine to set bits in the UCB. Based on 
: 644 7 : ! the bit settings of the FLAGS longword, the device database is 
: ot? 178 : modified to show the specified characteristics. 
; geo 741 2 | Inputs 
; o68 rg FLAGS = options longword 
: 630 744 i Outputs 
3; 651 745 ! None. The device database is modified. 
: $36 ore8 : If an error is detected, an appropriate error status is returned. 
: 654 O748 — 
BBE Saw 
£ $8 GPat BY tags ; nee sont, 
3 ccb : $ 
OEE au 
3 661 0755 ucb = .ccb{ccb$l_ucb] : SBBLOCK, 
3 $66 3738 char = ucb ycbst devchar) : $BBLOCK 
; 66 075 char2 = ucbCucb$U_devchar2) : SBBLOCK; 
: ges greg 5: 
; 666 $780 i First some sanity shocks. If /CNOJAVAILABLE, the device must be a 
; 667 0761 ! dismounted disk. For /CNOJDUAL_PORT, the device must be a disk, and for 
: $68 3534 /NODUAL, the disk must be dismounted 
; 670 $768 if .flagsCset$v_availset) ' If /CNOJAVAILABLE 
: or) 3702 i ae set$v_dualset ! or /CNOJDUAL_PORT 
: 67 076 BEGIN 
3 674 076 IF .ucbCucb$b_devclass] NEQU dc$_disk ! device must be disk 
3; 675 0 g THEN RETURN set$_invdev; 
3; 676 0 IF .charldev$v_mnt ! disk must be dismounted 
: 677 THEN RETURN ss$_devnotdism:; 
3; 678 END; 
3; 679 
: THEN charldev$v_avi) = flagsCset8v_availd: 

; 690 IF .flags{set vaerrorset 

3; 691 5 THEN po dev$v_elg flagsCset$v_error); 

; 69¢ IF _.flagstset$v-diagset) 

; 69 THEN 


3; Routine Size: 128 bytes, Routine Base: S$CODE$ + 0535 


11 
SETDEVICE 1b-$6 1984 00:50:54 AX-11 Bliss-32 V4.0-74 Pa 
ritee 1 =3007 138% 99:39:b¢ CL TUTL SREISESDLVI cE. 64252 ; - 3 
; 694 7 BEGIN 
3 £3? 7 cant cbSy_ont ined = NOT .fla sCegtsy digg]; 
3 $38 7 : ghar dev$v_avi] = NOT .flagslset$v_dtagJ; 
; 698 036 
: 699 79 RETURN 1; 
3; 700 794 END; 
000C 00000 SETBITS:.WORD Save R2,R3 : 
51 8 BC p a02 MOVL ace Ri : 
32 Al 0 MOVAB 56(R1), R2 : 
5 4 ac 00 00 OA MOVL FLAGS RO ; 
0 60 04 EO 00 5 BBS #i, (RO), 1$ : 
1 60 3 a 001 BBC #3. (RO), 4$ : 
01 40 Al 91 0016 1$: CMPB gaint), in : 
08 13 OOO1A BEQL $ ; 
50 000000006 8F v0 o01¢ MOVL #SETS_INVDEV, RO : 
06 62 13 £1 00024 2$: BBC #19, (R2), 3$ ; 
2184 oF ¢ 00 é MOVZWL #8628, RO : 
15 60 03 €1 90 3$ BBC #3, (RO). 4$ : 
53 60 01 04 EF 000 EXTZ2V #4. #1, (RO), R3 : 
62 01 OF 53 FO 000 INSV R3. #15, #1, ¢ Q) : 
5 60 01 04 EF 0003C EXTZV #4, #1, (ROS, R ; 
3c OA 01 00 53 FO 00041 INSV 3. #0. #1, 60(R1) : 
OA 60 1 €1 00047 4$: BBC wi. (RO). §$ : 
53 60 01 EF 0004 EXTZ2V #2. #1, (RO), R3 ; 
62 01 12 FO 0005 INSV R3. #18, #1, (R2) : 
OA 60 05 €1 00055 Ss: BBC #5. (ROS, 6$ : 
53 60 01 06 EF 00059 EXTZV ay #i, (RO), RS : 
62 01 16 FO 0055 INSV R3, #20, #1, (R2) : 
14 01 AO 04 €1 00063 6$: BBC #4; 1(RO), 2 3 
50 01 Ao gi 95 EF 00068 EXTZv #5. #1, 1¢RO), RO : 
0 0 YY O06E MCOML RO. : 
64 Al 01 04 50 FO 000 INSV. RO. #4, #1, 100(R1) ; 
62 01 12 50 FO 00077 INSV RO. #18, wi, (R2) ; 
50 01 BO g007¢ 7$: MOVL = #1. RO : 
4 0007F RET ; 
] 
| 
| 


VOu-O01 iesbee9Es QO:GB:E4 YASH SLeNcHE UOeT&S,.o Poe 8} 


13? 1 poutine setspool (ccb, intccb, que_desc, int_desc) = 


‘ !e¢ 
; Functional description 


This is the kernel mode routine to make a device spooled. 


! Inputs 
! address of the device's channel control block 
address of the nternediate Read s CCB 
descriptor for the queue 

descriptor for the name A the intermediate device 


ooo 
EWN 


i Outputs 
‘ None. The device database is modified. 
If an error is detected, an aspropriate error status is returned. 


i i i i S — 
co 
COOOCooooooooooooccooo 
> > > i | 


et a ot ot do I I I_OO 


OND ce ed ed ed ed 


ccb : REF SBBLOCK 
jatech t REF SBBLOCK 
ue “desc : REF SBBLOCK, 
nt_desc : REF $B8LOCK; 


BIND 
ucb = .ccb{ccb$l_ucb] : 
char = ucbCucb$l~ devehard = S860 cK 
int_ucb = .intccb ugd b] : BLOck 
int=char = int_ucb we ye evchar SB6LOCK, 
int_vcb = .int_ucblucb$l— -Hey SBBLOCK: 


LOCAL 
status; 


DONAARUIM—OSR NE 


IA AITO PORORUPOPoToTfoTnong 
SOOM PUI OOO NOUS UO 


SOoooooooooooo 


WV OOSONOUE ODDIE UM OD 
0.00 00 C0 0D CD 


WALA PIPPIN NPU PUNY 


OOoooce 


' 
: Lock the 1/0 database for write access. 


schSiolockw(.ctl$gl_pcb); 


SSBVSEAE 


741 


i} 
i Make qoeqee to inoue Shes the device is the right kind of device, 
! that $ not assigned to sone other process, and that the lnteraediate 


PPE TETETELTE IVIL IE IR IRIE TEI IEICE ETE eICIcrererererererelrrrerereirrererireriiLirriere 
J bp hp i ae ee, | 


747 0 ! device is a file-oriented d 
rs at 
sta 
750 5 If ruebevebsp, devclass) NEQU dc$_term ! Device must be either a 
751 4 AND .ucbCucb$b sett invdev NEQU dc$_lp ! terminal or printer 
23g 5 THEN status = Set 
7 § ELSE IF scharlde Hy aie 
754 THEN ppetus © deya rhe ! Can't be already spooled 
755 8 FUE IF tus Tusbsen re 2 EQ 1 
7 $ HEN status = ss$_ sign ' Can't be eset ne to anyone 
75 39 ELSE IF wot eint "thar aov v -fod) ! Intermediate vice. must be 
758 5 OR int “charldev$v_rnd : file-or sates d 


Be Se Ge Se Se Ge Be Se Se Ss Se Ge Se Se Se SF Se Se Se Ge FF Ss Ss Se Ge Se Se Se Se Se FF Se Ge Se Se Se Ge Se Ge FF Ge Se Ss Ss G55 Ss Se Se Se SESESH Ss Se See 


sey 


gu 


o 


=—OOONAULS WN 


oOo 
SSIES 3 
~O 
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be 


ppetys = ss$ rtd Map oy, 

IF nt _charCdey$v_dat 

OT .int_charCdev$v_mnt 
status = ss$_devnotmount; 


! Intermediate device must be 
' mounted 


T 
! 
! If the devices meet all the criteria, then try to allocate a chunk 
! of nongegee pool to put information about the queue. If the 

: allocation request is not successful, indicate an error. 
i 
T 


status EQL 1 


4 pny : REF S$BBLOCK, 


status = exeSalononpaged(irp$c_length; size, block); 
If NOT .status 
THEN status = ss$_insfmem 


BEGIN 


{ 
! Move the queuve's name into the block of non-paged pool, and put the 
: address of the block into the UCB. 


Stages = 1; ' Put in return status = success 
ucblucb$l_vcb] =_.block; ! Put block's address in UC 
block{vcb$Sw_size] = .size; ' Set queue block's size 
pieck vcb$b_type) = dyn$c_vcb; _! Say it's a VCB (pseudo) 

C 
CHSMOVE (.que_descldsc$w_le 


Que desc 


vceb$b_status] = Gus desc CdscSu_lengthd; 
E ngth 
blockCvcb 


dsc$a-pointerd, 
w_trans]); 


Now juggle the intermeciate and spooled device UCB's to reflect this change. 

Specifically, the intermediate device's reference count and transaction count 
are incremented, the intermediate device UCB is stored in the spooled device 

UCB, and the spooled device's spool bit is set. 


int_ucbCucb$w_refc] = .int_ucbCucb$w_refc] + 1; 
int veblvcb$w_trans] = .in€_vcblvcb$u_trans] + 1; 
usbCycb L_amb]_= int_ucb; ' Store intdev UCB 
char deysv.sp i = 1; ' Set it spooled 
ucbCucb$l_pid] = 0; ! Clear owner field 


END; 
! Unlock the 1/0 database, set the IPL to 0, and return whatever 
: status. 


sch$iounlock(.ctl$gl_pcb): 
adh. oP 


RETURN .status; 


N11 
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B 12 
vouroul Ve-Sep-198e 12:09:0¢ — Eeciure“seeisevoevice 682;2 
; 816 0909 1 END; 


OFFC 00000 SETSPOOL: 


s Save R2,R3, ar R5,R6,R7,R8,R9,R10,R11 
5A 000000006 00 9E 000 « CTL$GL_PCB, R10 * 
7 4 BC DO 000 MOVL  aCCB ar 
6 8 BC D D MOVL antics, R6 
4 Ab D 0 if MOVL (R6), RB 
4 6A 0 1 MOVL  CTLS$GL’PCB, R4 
000000006 00 18 0018 JSB SCHSIOCOCKW 
59 01 p OO1E MOVL #1, STATUS 
42 BF 40 AZ 91 00021 CMPB 4s-«&4(R7), #66 
10 13 000 6 BEQL =-'1$ 
43 BF 40 A? 91 000 CMPB 0-6 4(R7), #67 
09 13 0002D BEQL s:$ 
59 000000006 8F DO 0002F MOVL § #SETS$_INVDEV, STATUS 
A 11 000 6 BRB 7$ 
09 38 OA? 6 €1 00038 1$ BBC #6, 56(R7), 28 
59 000000006 8F 00 0003D MOVL  #CLI$_DEVALSPL, STATUS 
2C 11 00044 BRB 7$ 
01 SC A? Bi 00046 28 CMPW 3=s-«92(R7),, #1 
07 13 90064 BEQL © 3$ 
59 0848 8F 3C 0004C MOVZWL #2120, STATUS 
1F 11 90091 BRB 7 
05 39 Ab 06 €1 00053 3$: C #6, 57(R6), 4$ 
07 3B AG 4 50 90058 BS #4. 59(R6). 5$ 
59 O1cc —soBF 3¢ ates 4$ MOVZWL #460, STATUS 
05 3A AG o§ £0 090 5$ BBS i. 58(R6), 
04 3A F 0069 BBS 58(R6). 
59 7c «BF OSA 006 $$ MOVZBL Hiss: STATU _” 
01 9 D1 0 $ CMPL TUS, #1 
46 12 9 7 
51 C4 BF 9A 0007 MOVZBL 
000000606 1 iB EXESALONOWPAGED 
59 D VL TAT s 
07 9 BLBS STATO US 
9 0124 BF 3¢ 7 MOVZWL 329e- status 
F 11 0008 BRB 9$ 
59 1D : 8$ MOVL #1, STA ys 
4 A? é D MOVL BLOCK, 
8 A 2 93 MOV Size. acs ock> 
OA A 11 mOVB ss #17, 1 then 
5 oc A 90 MOVL QU DES iftep 
06 A 6 Al MOVE. (ROS, (oy 
OC A2 ie & 3 AS movc3 (RO) a4 (Rd CR (BLOCK) 
Cc M6 OB AB INCW =: 92. (RO) 
C «AB OB A INCW = - 10. (RB) 
$0 3 p VL OR G(R R7) 
A7 40 «BF B BISB2 #64, 56(R7) 
en ae 1 
000000006 $0 8 C JSB SCHSIOONLOCK 


Be Se Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Sse Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Ve Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se Se Be Se 
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3; Routine Size: 


205 bytes, 


56 


Routine Base: 


12 
r$-ep-1964 00:50:54 yaKatt BLisg=82 y4.0-743, 
Q0 pA oporg = TPR #0, 418 
04 OO0CC RET 
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12 
1$-Seo-1984 99:50:54 YANctT BL iag-32_ V4.0 
1 pout ane setnospool (ccb) = 


§ee 
! Functional description 


This is the kernel mode routine to unspool a device. 


Inputs 
ccB - address of the device's channel control block 


Outputs 
“ None. The device database is modified. 
If an error is detected, an appropriate error status is returned. 


MAP 
ccb : REF SBBLOCK; 


BIND 
ucb = .ccb{ccb$l_ucb] : S$B8BLOCK, 
char = ucblucb$l_devchar) : $BBLOCK; 


LOCAL 

int_ucb : REF S$BBLOCK, 
int_vcb : REF $BBLOCK, 
status; 


] 
Lock the 1/0 database for write access. 


schSiolockw(.ctl$gl_pcb); 


i Make checks to insure that the device is the spooled, and that the reference 
! count is correct (i.e., no one else has assigned a channel to it). 


' 

status = 1; ! Assume everything's wonderful 
IF NOT .charCdev$v_spl) 

THEN status = cli$_devn tspl Must be spooled 

ELSE IF .ucbCucb$w_refc] GIR 1 If the refcount is greater than 


' one that mpene hat there is a 
file open in which case the 
device cannot be despooled 

! Can't be assigned to anyone 


THEN status = ss$_devassign 
ELSE 


i If the device looks good, mark it as being no longer spooled, and 
reduce the reference count by one. 


BEGIN 
charCdey$v_spl] = 0; ! Device is not spooled 
ucbCucb$w_refc] = .ucblucb$w_refc] - 1; ! Decrement the ref count 


Eee aS | 


ami ifcSeo-1964 00:50:54 yancdt eLiag=82 v4.0-742, Page 
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! Deallocate the chunk of pool that holds the queue name. 


tea ee ! Return queue block to pool 
ucblucb$l_vcbJ = 0; ! Clear pointer to queue block 


Decrement the oy Mes count of the intermediate device, since we're no 
longer spooling to it. 


int_ucb = “yebCuch# log 
int_vcb = .int_ucb 
int “vcbCvcb$w_trans 


! Locate intermediate device's 
yzeat, ecb): ! UCB and VCB. 
Tint _veblvcb$w_ trans) -1; 


Clear the pointer to the intermediate device, since the soon-to-be- 
! despooled device no longer needs it. Also put the address of the 
intermediate device into the channel control block. 


94 

95 ccb{ccb$l_ucb _— ucb; 
£98 yee ucb$l_amb 

9 

is , 
Soe pateck the 1/0 database, set the IPL to 0, and return whatever 

tatus. 
90 i 
$08 5 SchSiountock(. -ctl$gl_pcb); 
se 

905 $999 a 
208 0998 RETURN .status; 
90 END; 


OFFC 00000 heats 


.WO Save R 2,83. R4,R5S,R6.R7,.RB.RI,RI0,R11 : 0910 
58 000000006 00 00 MOVAB  CTLSGL 25R3 rb : 
6 04 Bt tf MOVL acca LA : 0931 
54 MOVL CTLSGL PCB. R4 + 0943 
000000006 9 JSB a anos. ; 
7 D 1 MOVL #1, STA Tus > 0949 
09 38 Ag 6 € 1 BBS #6. : 0950 
57 000000006 f p i ROVL actl OOLUNOTSPL., STATUS ; 0951 
01 5¢ ag 1 1$ CMPW : (R6), #1 : 0952 
B BLEQU F 
57 0848 F ¢ ROV ZL é 120, STATUS ; 0956 
38 Ab 40 8F BA 23 BICB2 #64, 56(R6) F 
C Ab B7 9 DECW 2 (Ro) : 0965 
> sooo00d6c 06 46 dp Ment RSE SBEANGUPAGED aie 
4 Ab D4 0004 CLRL yt 4) : 0972 


3 33333 


3; Routine Size: 


107 bytes, 


50 


046 BC 


5 


Routine Base: 


A 
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34 
oc 


SCODES + 0682 


F 1 
1hetep-19 


14-Sep-1984 9 


@Wor—-owo 


Site 


09:06 


AX-11 Bliss-32 v4.0-7 
CLIUTL. SRCISETDEVICE. 3 2:2 
96(R6) 
gC INT NT “ueB)> UN. vcB 
12CINT 
int uC cB. cca 
(RG) 
CTLS$GL PCB. 
SCHSIOONLOCK Lock 
r) 
STATUS. RO 


_—_—__—_— 
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sat 


F 1 ROUTINE setprot (flags, ccb, mask, prot, uic) = 
; ; : BEGIN 
: 3 1 lee 

: ai? ! Functional description 

; a 1 i This is the kernel mode routine to set bits in the UCB. Based on 
3 1g 1 ' the bit settings of the FLAGS longword, the device database is 
: 4, ; 3 : modified to show the specified characteristics. 

: 319 1010 2 ! Inputs 

3 : 1} : FLAGS = options longword 

: 9 : 1 18 i Qutputs 

; 9 1014 ! None. The device database is modified. 

; : 131? : If an error is detected, an appropriate error status is returned. 
; 9 6 1917 — 

: 358 1019 5 MAP 

> 929 1020 flags : REF SBBLOCK, 

; 9 1021 ccb : REF S$BBLOCK 

3; 931 10 ¢ prot : REF VECTORL,WORDJ, 

3; 9 ¢ 10 mask : REF VECTORL,WORDJ, 

3 oa7 1024 uic : REF VECTOR; 

i 33 1958 § BIND 

3 936 10 ; ucb = .ccb{ccb$l_ucb] : SBBLOCK, 

3; 937 1028 orb = .ucblucb$l_orb] : SBBLOCK, 

3 ote 1029 char = ucblucb$l_devchar] : S$BBLOCK; 

; 939 1030 

BR TEE Ec pron «ome 

: prot : 3 

Go a 8 ames 

; oes 1035 Check that the device is not file-oriented. 

; 946 1037 if .char(dev$v_ fod) 

> 94 1038 2 THEN RETURN set$_invdev; 

Se BRS | 

: 950 1944 i If the device is unowned and there is no ACL present, require SYSPRV to 
3 $35 1984 } change the ACL. 

: 953 1044 5° 

3: 954 1045 IF_ .orbCorb$l_owner) fet 0 

: 955 1 $ AND (IF .orblorb$v_ac sfueye? 

3 328 ' s nee orbCorb$t_acl fl] EQLA orbCorb$t_acl fl) 

: 958 1 AND NOT .SBBLOCK Cctl$gl_pcblpcb$q_priv]. prv$v_sysprv] 

; 323 1050 THEN RETURN Se sgt , oe 

961 1982 5 3 

; 308 } 38 Set the new protection. Then return the full device protection. 
: 964 1055 2 iF .orbCorb$v prot.16] 

3: 965 1056 THEN temp_prot = .orbCorb$w_prot] 


i 


12 
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; } 34 ELSE 

; 1 5 temp_prot<0,4> = .(orbforb$l_sys_prot])<0,4>; 

3 39 1 temp_prot<4,4> = .(orblorb$l"own_protJ)<0,4>; 

3 9 1061 konp proves 4> = .(orblorb$l_grp_prot))<0,4>; 

3 44 : ¢ gemp_prot< 2,4> = . orb orb$l_wor_protJ)<0,45; 

: 378 1 orbCorb$u_prot) = (,temp grot AND NOT -maskC0J) OR (.protl0] AND .mask(0J); 
: 974 1065 prot(0) =".orb orhSu_prot ; 

; 975 1 orblorb$v_prot_16] ='1; 

See 

; a8 : ; If no UIC was given, then take this process UIC as the owner. 
; 9 1071 2 IF NOT .flagsCset$»_uic) 

; 981 in THEN wictones -$e8.0¢xt gtlSgl pcb, pcb$l_uicl; 

: 98 107 orbCorb$l_owner] = .uict0); 

; 98 1074 

; 984 1075 RETURN 1; 

; 985 1076 END; 


003C Save R2,R3,R4,R5 : 

55 000000006 00 3 CTLSGL_PCB, R5 : 

25 fe fF 8 thee ; 

08 39 «AI 06 E1 #6, 57(R1), 1$ : 

50 000000006 8F bd #SETS_INVDEV, RO ; 

0 (RO) : 

OA 0B AO ic if FF. 11R0), 28 } 

51 28 AO 5 40(R0), R1- : 

1 p 40(RO), R1 : 

51 D CTLSGL_PCB, R1 : 

04 0087 cf O¢ 4 #4 Sescaas, 3$ : 

0 4 BO #36, RO ; 

9 AO €9 11(RO), 4$ : 

y 8 RE H108): 5 7 

6 a0 Re). fEMP_PROT : 

52 18 AO 9 24 n0) R2 : 

1 62 F R2), #0, #4, TEMP_PROT ; 
2} 4 4 1 AO F (RO), #4, 44, TEAP_PROT : 
1 8 3 AO F (RO): a8 #4. TEMP~PROT ; 
3 ¢ 4 A (RO); #12, #4, TEMP_PROT ; 
7 ic TEMP PROT, &3 F 

4 0c e¢ ¢ anASK, R4 

1 REE eae : 

4 Rf DS Ro, RO : 


SEIORYECE iEHeectgue 90:39:5¢ yatrtt sLiegcae weioe7eg, 


1 CA BICL ns: 
62 2 2 A B1SW R ei (R2) 
Bf i Ret fea 
5 06 AC OD A MOVL AG 
o a el 88 5 AOVL Amini oi 
14 «6B oosc «6C1:«COD MOVL Trt iby avic 
4 6C DOD 9C 6$: MOVL Ic, (RO) 
0 1 p A MOVL » RO 
4 OOOA RET 


; Routine Size: 164 bytes, Routine Base: SCODES + 06ED 


sa~ 


DOOOOOCOCO 


uw 


PESISIESE 


S333 


CEEt ESTES SS SEES LT 


Saas 
oo 
oo 3 
Wr 


COOOooooooocoooooo0o 
NOUSWN OO OONOUL WO 


POPIPOROPoOPorony 


OCOOoooecccocoea 


Boe Se Se Ge Fe Ge Se Se Se Se Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Ss Ge Ge Se Ge Ge Ge Se Se Se Ge Se Ge Ss Se Se Se SH Ss Se Se SF Se Ss Se Se Se Se Ge Ge ee 
ee ee ed ee ce ee ee ee ce ee ee cee ed ce ee ce ee ee ed ed ee ee ee ed ed ee ce ed ee ee ee ce ee ee ee ee od eed ed ed 

ce ee ce ce cee ce ce ce ce ee ee ce ce a ce ee ce a ce ce ee ee ce ce ce ce ce ce ee ee ce ce ce ee ce ee ce ce ce ee ce ee ed ee ee ce ee ee ee ee ee ed ee 
ame me a meh ch et a st 8 a th Ss a St tL 


WA AAINIUIINIIIIUNIIN & SB BA OSSSS? 
WN —QODNOUEWN—OOONAULWN OC DODNAUN 


WwnN—o 


FRRE 
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1ecbepctage 90:50:84 
ROUTINE setserved (flags, ccb, letter) = 
BEGIN 


lee 
: Functional description 


; This is the kernel mode routine to serve a device. 

i Inputs 

: FLAGS - options longword 

! ccB - address of the device's channel control block 

; LETTER = controller letter 

i Outputs 

' None. The device database is modified. 

: If an error is detected, an appropriate error status is returned. 
i ss es 


ecb : REF S$BBLOCK 
flags : REF $BBLOCK; 


BIND 
ucb = .ccb{ccb$l_ucb] : 


LOCK, 

char = ucblucb$l_devchar] : S$BBLOCK 

char2 = uebEucbst_devchar2) : $BBLOCK, 

cddb = .ucblucb$l_cddb] : ree to 

p_.cddb =.ucblucb$T_2p_cddb] : SBBLOCK; 
LOCAL 

status, 

stati, 

stat2; 


First check to see if the device can be served 
status = 0; 


IF ((.ucbCucb$b_devclass] eqlu dc$_disk 
-ucbLucb$b_devtype] nequ dt$_rx01 
-ucbLucb$b_devtype) nequ dt$_rx02) and 
eucb yes Govt yee nequ dt$_rx04) and 

-chareldev$v_srv nequ 1)) 

THEN status = 1; 


IF .status 
THEN 


Ct te el 


) and ! If all of these con 
» and ! then ok so far 


If _ .charCdev$v_mnt] eqlu 1 ! If the device is mounted 
HEN ! then it must be cluster 


BEGIN 
status = .char2(dev$v_clul; 
qr wot ~Status THEN RETURN ss$_devnotdisa; 


! accessible to be served. 


—D ad 


FUSS 


polo lolelololelolq] 
OOOO 


uw 


ODONOULS wiry 
WN MEW O00 NO UO Dees 


SESSETESES 


ANN 
Fun 00 


COOooooocooo 
ANNs 
wr 


~ 


CONAW 


oo 


ae a ee ee a ee ee ee ee ee ed ed ed ed od 


a ee ee ee ec ee ce ee DD ce ce ce ee ee ee ee ee ed ed aed ed 


a a ed et a a a a a ed ed ed ed 
uw oO 


& 


m—O0O~ 


r=) 
nN 


1 END; 


stati = stat2 = 0; 
IF ,status H 


If _ .char2Cdev$v_mscp] 
THEN 


IF _ .char 
THEN 

stat2 = po.codeh cddbtuentritiged AND mscp$m_cf_mlths 
if (.stati OR .stat2) NEQU ! If 


GIN 
stati = ,cddb{cddb$w_cntriflgs] AND mscp$m_cf_miths; 
Neh et ™ . — 


the above conditions are 
' true then cannot serve device 


; status = 0; 
IF NOT .status ! If not a valid device to serve 
' return with invalid device 
RETURN set$_invdev; ! status. Else continue. 


Lock the 1/0 database for write access. 
schSiolockw(.ctl$gl_pcb); 


1 

: Call the routine to set the specified characteristics. 

status = mscpSaddunit(.ccb{ccb$l_ucb], .flagsCset$v_nowrite], letter); 

i] 

: Unlock the 1/0 database, set IPL back to 0, and return whatever status. 


schSiountock(.ctlSgl_pcb):; 
se : 
If ~Status EQLU ss$_devoffline 


RETURN set$_mscpnotid 


ELSE 
RETURN .status; 


OFFC 00000 SETSERVED: 


OR Save R2,R3,R4 
7 000000996 00 9E 000 MOVAB CTLSGL_PCB. R? 
3 4 C5 BO 000 MOVE Tatas). R 
24 tat : D 1 MOVL  192(R5): Re 
é 4 0001 CLRL STATUS 
01 40 AS 91 00019 CMPB «6 4(R5), #1 
1A 1 10 BNEQ jf 
10 41 aS 9 1F CMPB ' (RS), #16 
14 «1 BEQL ; 
08 41 aS 9 CMPB 6 (RS), #11 
0 1 BEQL 4 


12 
1e-Sep-1986 12:09:06 — EeLTUTL*sneSsetoevice ss 


R5S,R6,R7,RB,RI,R10,R11 


Pete Se See Se See Se Se te Ge 
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SETDEVICE 18-5¢ -1984 AX-11 Bliss-32 Vv 4 0-74 Pa 
vtee ee tae ts rk to CT tt aT ae ae 3 

0c “a 6 ? B CMPB 5(R5), #12 : 

0 F BEQL : 

3c COA ? 1 TST 6 (R5) : 

BLSS : 

56 06 MOVL #1, STATUS : 

4 $ - 1$: BLBC)—OsSSS 1} $ : 

OF 3A AS E1 BBC 3, ind? 2s : 

56 3c OAS 1 0 EF 0004 EXTZv # OER ), STATUS : 

6 6 £8 0004 BLBS STATO : 

2184 BF 3C OO04A MOVZWL $b6l8° . : 

4 O004F RET : 

; D4 3 2s: CLRL = STAT : 

2A PS 8008 Stee Sraqy $ ; 

22 3c AS be 5 0 27 BBC gbins) 4$ ; 

50 28 «A2 3 0 MOVZWL doin start : 

50 FFFFFFFB ar CA 0006 BICL2 faT ; 

0B es & 4 fi 006 BBC $ (RS) 38 : 

5 28 «Al OC 006 MOVZWL tin de agin : 

53 FFFFFFFB HE CA 000 sists = @ $ 

50 3 cs 0077 3$: BISL2 STA Ate 2, tate F 

92 13 OOO7A BEQL rt F 

6 D4 0007¢ CLRL U : 

08 56 OEB 00075 4$: BLBS § STATUS, 6$ ; 

50 000000006 &F BO 0081 5$: MOVL WSETS_INVDEV, RO : 

54 67 DO 00089 6$ MOVL  CTLSGL_PCB, R4 : 

000000006 00 16 0008C¢ JSB SCH HSIOCOCKY : 

OC AC DD 0098 PUSHL Lert ER : 

50 04 AC DO 0009 MOVL FLAGS RO : 

7E 01 Ao 01 Q EF 00099 EXTZV , #1, 1(RO), (SP) : 

DD 9009 SHL : 

000000006 00 03 FB OOOA1 CALLS , MSCPSADDUNIT : 

56 Q D OOM MOVL RO. F 

54 67 D AB MOVL  CTLSGL pce R4 : 

000000006 00 16 OO0AE JSB scHSI $10 LOCK : 

12 00 DA 00084 MTPR ; 

00000084 8F 6 D1 00087 CMPL Bats #132 F 

08 if 008 BNEO F 

50 000000006 8F pO 90¢ MOVL #SETS_MSCPNOTLD, RO ; 

50 56 00 00c8 7$ MOVL STATUS, RO : 

04 000¢B RET ; 


: Routine Size: 204 bytes, Routine Base: S$CODE$ + 0791 


+ 
Sseese 
S285 


SISPSVEB 


3 


° 
3 


FARGWVLS 


ooo 


MEW —OOOVNAUES WN “SO OOVNOUE WN "0 0O@~ 
DEI DIDI DIDI at et i i a ed ed eed ed 


RIPPINIMINIMNININIDS 2 9 | MQOOOCOSOOOOSOSSOOOOVODOOO0O0O + het try te eee SAPP! 


a ed ed ed ee aed ee ce ee ee ee ee ed ed ee ee ed ce ee ee ce ce ce ee ce ee ee ee ce ce ee ee ce ee cee ee ce ce cee ce cee ee ce ee ee ee ee cee ce ee ce eed ee ee ee 
a Da a ed a Bd 


ec ce ce ce me ee me ee em at a em ee ee ee ed ed ed a nd ed od od dd oe = od od 


ee ek a a ed a at Se St wt a ts tt 


& 
o 


See Ge Se Ge Se Se Ge Se Se Se Se Se Se Ge Ge Ge Se Ge Fe Ss Ge Ge Se Ge Se FHSS Se Ge Ss Ge Se Gs Ge Ge Se Se Se Ss Se Ge SF SF SF Ss Se Ss Se Se SSeS SeSseese 
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ROUTINE setgetportname ( ccb, Length, string ) = 
BEGIN _ ° 9 


'¢ 


+ 
! Functional description: 


This routine uses the UCB stored in the input CCB to locate a PDT and 
finally a port device UCB. The port device UCB address is fed to 
IOCSCVT_DEVNAM to build a device name string suitable for use in a 
channel assignment. Several consistancy checks are made along the way 
and if any of them fails and error status is returned. 


Inputs: 

ccB Channel Control Block address 

LENGTH maximum device name Steing length 

STRING beginning address for device name string 
Outputs: 


LENGTH actual length of device name string 
-STRING device name string 


ccb : REF $BBLOCK 

length : REF VECTOR 1, WORD J 

string : REF VECTORE 20, BYTE 4; 

LINKAGE 

DEVNAM = JSB ( REGISTER = 0, ! RO = Length of name buffer 
REGISTER = 1, ! R1 = address of name buffer 
REGISTER = 4, ! R4 = conversion type flag 
REGISTER = 5; !' RS = UCB addr 
REGISTER = 1 ); ! R1 = device name Length 


EXTERNAL ROUTINE 
ioc$cvt_devnam : DEVNAM; 


Convert UCB to device name 


BIND 

ucb = scebtechss ucb) : Seguoce 

char2 = ucbCucb$T_devchar2] : S@BLOCK; 
LOCAL 

status; 


i] 
: Only MSCP devices can be connected to a U/Q port. 


If NOT .char2Cdev$v_mscp) THEN RETURN set$_notuqport; 
‘ 


Now, a decent contents for UCBSL_PDT has been assured. 


BEGIN 


1eSep-198e 19:09:06 — Letrure*sneSsetoevice -652:2 Page 403 


Se Se Ge Ge Ge Ge Ge Ge Se G6 Gs Ge SE S5 Se Se G5 Se Se Se Stes 
a a 8 tb 2 — —) 2d as —) 5 2d 9 3 
a et tt tt 


PEPE DAA AM SB PP PPE 
a dd 


DINE BBE EEE EE EWI 


A =OODNAUNLS AR S$ OOONOULS WII 


M—OOONOUNEWN S$ OOONOULS WIN 


N 12 


Va-Sep-1986 12:09:06 EeLTUtLesneSs 


BIND 
pdt = a eeet erie 


LOCK 
port_ucb = .pdtlpdt$l Bae SBBLOCK; 


IF .pdtCpdt$b_pdt_ type] NEQ pdt$c 
OR b ‘bert’ ue blicb ati ~devc lass) NEQ acs. bus 
THEN RETORN set$_ndotuqport; 


Lock the 1/0 database for write access, convert the UCB address to 
! a device name, and release the 1/0 database. 


ogee gue OF caett Be psoté 

status = EVNAM( .Length, .string, 0 port ucb; length ); 
IF y- S OFOL ss$_ bufferovf THEN status = set$_notuqport; 
ogg | rae -ctl$gl_pcb); 

se 


RETURN .status; 
END; 


ror 


.EXTRN IOCSCVT_DEVNAM 
OFFC 00000 SETGETPORTNAME: 


WOR Save 
57 900000006 8F DO 0000 MOVL &#SET$_NOT 
6 000000006 00 0000 MOVAB CTLS$GC PCB, ae 
50 04 BC DO 90010 MOVL CCB, RO 
3c. A 05 €1 00014 BBC #5. 60(RO), 1$ 
20 0084 ¢0 00 00019 MOVL 1 BCR i. Rb 
5 oopc = ¢0 b0 001 MOVL ¢2 (RO); R 
02 07 AO 91 000 CMPB (RO), &2 
07 12 000 BNEQ 1$ 
80 8F 40 AS 9] 00 CMPB $4 (RS), #128 
04 00 BEQL $ 
50 7 v6 1$: ROVL R7, RO 
54 6 D0 23: MOVL  CTLSGL pce. RG 
000000006 0 16 7 SB SCHSIOLOCKU 
50 08 AC an F MOVG LENGTH, RO 
000000006 Q 16 00 43 JSB locscvt DEVNAM 
55 D MOVL © RO, STATUS 
96 AC D 4 MOVL R1, LENGTH 
00000601 BF § ; CPL siAtus, #1537 
2? ; D 9 MOVL a, STATUS 
4 D C 3$: MOVL  CTLSGL_PCB, R4 
000000006 16 £ Js $CHS1OQNLOCK 
5 Bb ° MOVL STATUS, RO 
4 00068 RET 


R Pend oR4, RS. >oRG. oR7,R8,R9,R10,R11 
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SE DEVICE 1$-ep-1964 00:50:54  YaN1t Bise-32 v4.0c742, Page 39 
; Routine Size: 108 bytes, Routine Base: S$CODE$ + 0850 


EHH 


; 1164 


$1163 1838 0 ElUon 


Name 
SPLITS 
SCODES 


File 


-$255$DUA28: CSYSLIBILIB.L32;1 


PSECT SUMMARY 
Bytes 
448 NOVEC,NOWRT, 


2249 NOVEC,NOWRT, 
Library Statistics 


Total 
18619 


COMMAND QUALIFIERS 


Page 40 
. (11) 


1SBen-1964 99:50:54 


AX-11 BLi jeeczt ave 


CLIUTL.SRCJSETDEV te B82; 32 


~EXTRN LIBSSIGNAL 


Attributes 


RD ,NOEXE,NOSHR, 


REL, poke ot ick bbe 1 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Symbols -------- Pages Processing 
iseded Percent Ti 
98 0 1000 00:01.9 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETDEVICE/OBJ=OBJ$:SETDEVICE MSRC$:SETDEVICE/UPDATE=(ENHS$: SETDEVICE) 


Size: 
ime 


Run T 

Flepsed. Time: 2:4 

Lines/CPU Min: 17 

Lexemes/CPU-Min: 20352 
Used: 380 pages 

Compilation Complete 


2249 io 448 data bytes 


ENT CORPORATION 
ND PROPRIETARY 


PM 


AH-BT13A-SE IPh 
LA 


VAX/VMS V4.0 


DI U 
CO A 


Q 


GITAL E 
NF IDENT 


0052 


